library(sf)
package ‘sf’ was built under R version 3.6.2Linking to GEOS 3.7.2, GDAL 2.4.2, PROJ 5.2.0
library(tidyverse)
library(ggplot2)
loc_authority_with_extra_density_2019 <- read_csv("data/loc_authority_with_extra_density_2019.csv")
urban_rural_2019_with_ex_den <- read_csv("data/urban_rural_2019_with_ex_den.csv")
la <- st_read("https://opendata.arcgis.com/datasets/2698b6825e88404ab6272a5ff7f59ee6_0.geojson")
la_loc_authority_ex_den <- inner_join(loc_authority_with_extra_density_2019, la, by = c("feature_code" = "lad18cd"))
la_loc_authority_ex_den
la_urban_rural_2019 <- left_join(urban_rural_2019_with_ex_den, la, by = c("feature_code" = "lad18cd"))
la_urban_rural_2019
ggplot(data = la_loc_authority_ex_den) +
geom_sf(aes(geometry = geometry))

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkoc2YpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGdncGxvdDIpCgpgYGAKCmBgYHtyfQpsb2NfYXV0aG9yaXR5X3dpdGhfZXh0cmFfZGVuc2l0eV8yMDE5IDwtIHJlYWRfY3N2KCJkYXRhL2xvY19hdXRob3JpdHlfd2l0aF9leHRyYV9kZW5zaXR5XzIwMTkuY3N2IikKCnVyYmFuX3J1cmFsXzIwMTlfd2l0aF9leF9kZW4gPC0gcmVhZF9jc3YoImRhdGEvdXJiYW5fcnVyYWxfMjAxOV93aXRoX2V4X2Rlbi5jc3YiKSAKYGBgCgpgYGB7cn0KbGEgPC0gc3RfcmVhZCgiaHR0cHM6Ly9vcGVuZGF0YS5hcmNnaXMuY29tL2RhdGFzZXRzLzI2OThiNjgyNWU4ODQwNGFiNjI3MmE1ZmY3ZjU5ZWU2XzAuZ2VvanNvbiIpCmBgYAoKYGBge3J9CmxhX2xvY19hdXRob3JpdHlfZXhfZGVuIDwtIGlubmVyX2pvaW4obG9jX2F1dGhvcml0eV93aXRoX2V4dHJhX2RlbnNpdHlfMjAxOSwgbGEsIGJ5ID0gYygiZmVhdHVyZV9jb2RlIiA9ICJsYWQxOGNkIikpCgpsYV9sb2NfYXV0aG9yaXR5X2V4X2RlbgpgYGAKCmBgYHtyfQpsYV91cmJhbl9ydXJhbF8yMDE5IDwtIGxlZnRfam9pbih1cmJhbl9ydXJhbF8yMDE5X3dpdGhfZXhfZGVuLCBsYSwgYnkgPSBjKCJmZWF0dXJlX2NvZGUiID0gImxhZDE4Y2QiKSkKCmxhX3VyYmFuX3J1cmFsXzIwMTkKYGBgCmBgYHtyfQpnZ3Bsb3QoZGF0YSA9IGxhX2xvY19hdXRob3JpdHlfZXhfZGVuKSArCiAgZ2VvbV9zZihhZXMoZ2VvbWV0cnkgPSBnZW9tZXRyeSkpCmBgYAoKCg==